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(57) Abstract 

A defined unit identifier which is an image necessary for a software to be 
produced is determined. Words existing in the defined unit identifier are picked up 
and a processing routine diagram, in which all pallets necessary for the software are 
arranged along the flowchart, is produced based on the defined unit identifier. Then a 
necessary file is determined in accordance with the picked-up words and the 
produced processing routine diagram. Then first basic logics for performing the 
image editing or the file editing, second basic logics for determining a processing 
routine and third basic logics for updating the file are produced for all the picked-up 
words. Then three types of pallets connecting the first, second and third basic logics 
are produced for every image and pallet functions which execute the basic logics in 
the respective pallets autonomously with significance are produced. An image based 
upon the pallet function concerning the first basic logics is transmitted and the 
picture is received and the pallet function concerning the second basic logics is 
executed. This process is one of a plurality of process routes. The above mentioned 
pallet functions are incorporated into a pallet chain function which has a structure for 
determining one processing routine among a plurality of processing routines 
including the processing routine where the pallet function concerning the third logics 
is executed in accordance with the result of execution of the pallet function 
concerning the second logics. This software does not require to produce basic logics 
for all the words and, if basic logics are produced for some of the words, the 
operation is performed within the range. 
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*MM ******** M*M*f*M*#**»** *********** MM* ************ MM*** 

* ! P0004 P F 4 : #1 

MMMM** ********************************************** ********* 

LP0004-SEC SECTION. 

LP0004-START PRKEY NO OF W0204 (PS) = 04 ) 
GO TO LP0004-EXIT 
END- 1 F. t 

* L01540 0 P C D (LP0004) # 

ELSE 

* OPEN K213DL(^ K213DL01-0PEN NOT = T 

OPEN INPUT K213DL01 
IF FLSTS1 NOT = ZERO 

MOVE 8800 TO MSG-NO 

MOVE - l y TO ERR-INF 

GO TO MAIN-END 

CI QF 

MOVE T TO K213DL01-0PEN 
END- IF 
END- I F 

* MOVE A01540 OF KH201ECPS) TO W01540 
H81II tij&O IB imi\? K213DL01-REC 

READ VAlWns , pipnBR 

MOVE 100 TO SGLCODB 
END-READ _ 

IF MOVE SKD792 OF K213DL01-REC TO R-W01560 
END-IF 

* IF SGLCODE = ZERO mn 

MOVE R-W01560 TO INDATA 

MOVE 16 TO OUTKETA 

S§Fe° R 0UTDATA PR T0 AD1560 OF KH201E(PS) 

ELSE M0VE V TO ERR-INF 



MOVE 2001 
MOVE B'l* 
MOVE SPACE 
END-IF 
END-IF. 



0 A01540-C OF W0204CPS) 
0 A01560 0F-KH201ECPS) 



IF ?F R 'CSR-L0CK OF W0204 (PS) = "A12590" 
MOVE 3 TO ROUTE-NO 

MOVE *KH600Q" TO L-GAMEN-NO 
END - 1 F 

MOVE 3 TO ROUTE-NO rt 

MOVE -KH600Q" TO L-GAMEN-NO 
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WO 3 : &m%m 

***************** t — ? (Dfetb ********************************* * tttt 
*********************************************************** 
* KH201E §i£A*> (%9) * 

*********************************************************** 

IF GAMEN-NO OF CRTL-AREA = "KH201E" 
*********************************************************** 

D DISPLAY "KH201E LAYT-FLG-" LAYH-FLG 
DISPLAY "KH201E LAYT-FLG= LAYT-FLG 
IL.LAYH-FLG. = "1 



***** 



***** 



***** 



960424***** 
*****I 
***** 
***** 
****»EN 

960513***** " 
*****! 




n - K YD1179KH201B1E 
A01540 OF KH201ECSTG1) 
TO KD1179 OF EF-AREA 

YD1839KH201E1E 
07580 OF KH201ECSTG1) 
_, TO KDJ839 OF EF-AREA 
Jffi^a-h* YD1847KH201E1B 
OVE A12590 OF KH201E(STG1) 
ai „T0 KD1847 OF EF-AREA 
5 NO YD1844KH201E1E 
A07560 OF KH201E (STG1 ) IS NUMERIC 
MOVE A07560 OF KH201EtSTGl) 
TO KD1844 OF EF-AREA 

-IF 

iiNO YD1844KH201E1E 
A07560 OF KH201ECSTG1) IS NUMERIC 
MOVE 



MO 



***** MOVE A07560 OF KH201ECSTG1) 
***** TO KD4029 OF EF-AREA 

*****EDN-IF 

960513***** JtBtNO YD4028KH201E1E 
**M*IF AD4800 OF KH201 E (STG 1 ) IS NUMERIC 
***** MOVE A04800 OF RH201ECSTG1) 
***** TO KD4028 OF EF-AREA 

*****END-IF 

IK 5 j&ft&ffl YD1854KH201E1E 
MOVr A043(S0 OF KH201BCSTG1) 
«. « m JQv J D ja§ 4 OF EF-AREA 

&mmmpii&n „ Iinnir , / ydi857kh2oieie 

MOVE A04360 Of KH201 E (STG 1 ) 
,£3] §57 OF EF-AREA 
18 5 ffi¥fS YD4044KH201E1E 
MOVE A14S900F KH201E(STG1) 
TO KD4044 OF EF-AREA 
1 YD1786KH201E1E 
MOVE A17860 OF KH201E (STG1 ) 
TO KD1786 OF EF-AREA 

YD1787KH201E1E 
A17870 OF KH201ECSTG1) 
TO, KD1787 OF EF-AREA 
.flSfjNO , YD4037KH201E1E 

AU2980 OF KH201ECSTG1) 
„.-~ T P KD4037 OF EF-AREA 
***** M&Kft YD1412KH201E1E 
MOVE A14130 OF KH201ECSTG1) 
, , TO P1412 OF EF-AREA 
fl^#3- K YD1084KH201E1E 
MOVf A10840 OF KH201ECSTG1) 
^ - L JCLWMP84 OF EF-AREA 
ii -rl-m.&&ft YDS568KH201E1E 
MOVE A11210 OF KH201E(STG1) 
n„n ,n T0 KDS568 OF EF-AREA 
END- IF 

******* ***************************************************** 

IF LAYT-FLG = T 
PERFORM VARYING SI FROM 1 BY 1 
UNTIL SI > 6 
***** LASTIDX CONTROL 

MOVf* SI TO TI 
***** J***|'l»j& 3 - K 1 YE5501KH201E1E 
***** IF AI 1210 OF KH201E(STG1) NOT = 1 



***** 



***** 



***** 



***** 



***** 



***** 



***** 



***** 



oVe 2 
wove ; 



TEXT 



4*6 
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WO 3 : USSS WQ3EH2 

***************** -f-'—^Ote^ ************************************** 
*********************************************************** 

* W03EH2 (HDR) * 

*********************************************************** 

***** SScS^ffl^It^SI L18570 
UG0717*****IF TKBN = CNS-Bf AND KDU360 OF EF-AREA NOT = "1" 
IF TKBN = CNS-EF , v 

IF KE5001 OF EF-AREA(PI) 

- OF EF-AREA x 

OF EF-AREA(PI) 

ZERO TO KD1857 OF EF-AREA 



AND KD1857 
AND KEC201 
IF PI = 
MOVE 
END-IF 
IF KB_„ 
COMPU 



NUMERIC 
NUMERIC 



IS 

IS 

IS NUMERIC 



KE5001 OF EF-AREA(PI) .... 
TE DK1857 OF EF-AREA 



NOT 



ON SIZE ERROR 



= ZERO 
= KD1857 
+ KEC201 



OF 
OF 



EF-AREA 
EF-AREA (P I ) 



***** 



EN 
I 



MOVE 
MOVE 
END-IF 
END-COMPUTE 
END-IF 
END-IF 



MOVE ALL "9" 

"RR-LNf %SPACE 
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